1 GOSUB300
2 F$(1)="L[207]"+CHR$(34)+"$"+CHR$(34)+",8"
3 F$(2)="LIST"+CHR$(13)
4 F$(3)="RUN"+CHR$(13)
5 F$(4)="LOAD"
6 F$(5)="GOSUB"
7 F$(6)="GOTO"
8 F$(7)="RETURN"
9 F$(8)="SAVE"
10 SYS 12*4096+64
20 V=12*4096-1
30 FOR I=1TO8:K=I-1:V1=V+K*8
40 FORJ=1TOLEN(F$(I))
50 POKE V1+J,ASC(MID$(F$(I),J,1))
60 NEXT:NEXT:PRINT"[147]FUNCTION KEYS ARE:"
70 PRINT"F1="F$(1):PRINT"F2="F$(5):PRINT"F3="F$(2):PRINT"F4="F$(6)
80 PRINT"F5="F$(3):PRINT"F6="F$(7):PRINT"F7="F$(4):PRINT"F8="F$(8)
200 DATA 120,169,87,141,20,3,169,192,141,21
210 DATA 3,88,162,63,169,0,157,0,192,202
220 DATA 16,250,96,165,197,201,64,208,6,141
230 DATA 151,192,76,148,192,205,151,192,240,44
240 DATA 141,151,192,162,3,221,152,192,240,5
250 DATA 202,16,248,48,29,138,174,141,2,240
260 DATA 3,24,105,4,10,10,10,168,162,0
270 DATA 185,0,192,157,119,2,200,232,224,8
280 DATA 208,244,134,198,76,49,234,64,4,5,6,3,0
290 :
299 END
300 FORI=0TO92:READA:Z=Z+A
310 POKE 12*4096+64+I,A:NEXT
320 IF Z<>10771 THEN"ERROR IN DATA STATEMENTS":STOP
330 RETURN